MacWorld Secrets (4th Edition)/Mac Secrets CD 4th Ed.toast/Apple Advanced Technologies/Apple Speech Technologies 1.5/Netscape Demos/ShockTalk Demo/USCQ.dcr/00021_aLanguage.ls

Text File | 1996-04-15 | 1.5 KB | 77 lines

property languageID
global ASRObj

on birth me, lmName
  set languageID to 0
  if objectp(ASRObj) then
    set languageID to ASRObj(mNewLanguage, lmName)
  end if
  return me
end

on mRelease me
  if languageID then
    ASRObj(mRelease, languageID)
    set languageID to 0
  end if
end

on mAddPhrase me, phrase, id
  if languageID then
    set err to ASRObj(mAddPhrase, languageID, phrase, id)
  end if
  return err
end

on mClear me
  if languageID then
    ASRObj(mClearLanguage, languageID)
  end if
end

on mSetLanguage me
  if languageID then
    ASRObj(mSetLanguage, languageID)
  end if
end

on mAddField me, textField
  cursor(4)
  updateStage()
  set err to 0
  repeat with index = 1 to the number of lines in textField
    set phrase to line index of textField
    if not (phrase = EMPTY) then
      set err to mAddPhrase(me, phrase, index)
      if err then
        exit repeat
      end if
    end if
  end repeat
  cursor(-1)
  updateStage()
  if err then
    alert("Error" && err && "trying to add line" && index & ", “" & phrase & ".”")
  end if
end

on mAddItems me, textField, theItem
  cursor(4)
  updateStage()
  set err to 0
  repeat with index = 1 to the number of lines in textField
    set phrase to item theItem of line index of textField
    if not (phrase = EMPTY) then
      set err to mAddPhrase(me, phrase, index)
      if err then
        exit repeat
      end if
    end if
  end repeat
  cursor(-1)
  updateStage()
  if err then
    alert("Error" && err && "trying to add line" && index & ", “" & phrase & ".”")
  end if
end